option explicit	
Sub Main
dim indeks as string, br as string, god as string, n as long
indeks = inputbox("Unesi broj indeksa")
n = instr(indeks, "/")
br = left(indeks, n - 1)
god = right(indeks, n - 1)
msgbox(br)
msgbox(god)
End Sub